Displaying 2 results from an estimated 2 matches for "datoutcome".
2015 May 29
3
Mi script R es muy lento
...:
#-------------
library(data.table)
datSet <- fread("Set-A.csv")
resOut <- datSet[, .(ValMax=max(Value), ValMin=min(Value),
ValAvg=mean(Value)), by=c("RecordID","Parameter")]
resOut$RecordID <- as.factor(resOut$RecordID)
setkey(resOut, RecordID)
head(datSet)
datOutcome <- fread("Outcomes-A.csv")
datOutcome$RecordID <- as.factor(datOutcome$RecordID)
setkey(datOutcome, RecordID)
head(datOutcome)
#resEnd <- merge(resOut, datOutcome, by="RecordID", all=TRUE,
allow.cartesian=FALSE)
resEnd <- resOut[datOutcome]
head(resEnd)
setkey(resEnd...
2015 Jun 01
2
Mi script R es muy lento
...ad("Set-A.csv")
>> resOut <- datSet[, .(ValMax=max(Value), ValMin=min(Value),
>> ValAvg=mean(Value)), by=c("RecordID","Parameter")]
>> resOut$RecordID <- as.factor(resOut$RecordID)
>> setkey(resOut, RecordID)
>> head(datSet)
>> datOutcome <- fread("Outcomes-A.csv")
>> datOutcome$RecordID <- as.factor(datOutcome$RecordID)
>> setkey(datOutcome, RecordID)
>> head(datOutcome)
>> #resEnd <- merge(resOut, datOutcome, by="RecordID", all=TRUE,
>> allow.cartesian=FALSE)
>> resE...