Program/RRClass.R at master · DMZakaria/Program · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
#################################################################################################
# Name of file           RRClass.R                                                              #
# Creation Date          05/05/2014                                                             #
# last modification      29/05/2014                                                             #
# Version                2.0                                                                    #
# @Description           RR calss contains two signals (RR,HR)                                  #
# @author                Djedou Zakaria                                                         #
#################################################################################################

.RR.valid <- function(object){ return(TRUE)}
setClass (
  Class ="RR",
  representation= representation(RR="Signal",HR="Signal"),
  validity =.RR.valid
)
rm (.RR.valid )

################################################################
# @Description   getter                                        #
#                                                              #
# @return        RR                                            #
# @return        HR                                            #
################################################################

setMethod( f ="[",signature ="RR",
           definition = function(x,i,j,drop){
             switch(EXPR=i,
                    "RR"={return(x@RR)},
                    "HR"={return(x@HR)},
                    stop("cet attribut n'existe pas!")
             )
           }
)

################################################################
# @Description   Load RR file from csv                         #
#                                                              #
# @param         file_path                                     #
# @return        created object (class instantiation)          #
################################################################


LoadRR <- function(file_path)
{
  # use readLines() to get file line-by-line
  e <- readLines(file_path)

  # filter out "error"
  e <- e[grep("Erreur", e, invert=TRUE)]

  # turn structure into a string we can pass to textConnection
  e <-read.csv(textConnection(paste(e, collapse="\n")), header=TRUE)
  taille <- dim(e)[1]
  s <- e[10:(taille-20),]
  rr <- new(Class="Signal", val=as.numeric(unlist(s["RR"])))
  hr <- new(Class="Signal", val=as.numeric(unlist(s["HR"])))
  return(new(Class="RR",RR = rr, HR = hr))

}

RrMean <- function (rr)
{

  e<-data.frame(rr)

  #grouping variable for every 20 lines
  grp<-(seq.int(nrow(e))-1) %/% 20 + 1

  #use aggregate to calculate mean for groups
  rr1<-aggregate(.~grp,e, mean)
  rr1<-rr1[,-1]
  return (as.data.frame(rr1))
}