Displaying 2 results from an estimated 2 matches for "baschgaut".
Did you mean:
baschga
2012 Jan 21
1
error in data.frame(...., check.names = FALSE)
...ary(ggplot2)
setwd("D:\\General Check list")
library(RODBC)
conn <- odbcConnectExcel ("Book1.xls")
Orange1 <- sqlFetch (conn, "Sheet2")
odbcClose(conn)
rm(conn)
unique(Orange1$BSCHSTAT) -> change
pdf("xxx.pdf")
for (j in 1:length(change)){
((Orange1$BASCHGAUT == "8-item scale")&(Orange1$BSCHSTAT == change[j])) -> b
FD <- Orange1[b, ]
unique(FD$REFID) -> refid
for (i in refid)
{
Orange2 <- FD[i == Orange1$REFID, ]
Orange2$ACTTRT<- factor(Orange2$ACTTRT)
unique(Orange2$BSCHSTAT) -> x
y <- paste("REFID=", i,&quo...
2012 Mar 31
1
Not getting correct graphs
...setwd("D:\\General Check list")
library(RODBC)
conn <- odbcConnectExcel ("Book1.xls")
Orange1 <- sqlFetch (conn, "Sheet3")
odbcClose(conn)
rm(conn)
#CDAI Change
unique(Orange1$BSCHSTAT) -> change
pdf("xxx.pdf")
for (j in 1:length(change)){
((Orange1$BASCHGAUT == "8-item scale")&(Orange1$BSCHSTAT == change[j])) -> b
FD <- Orange1[b, ]
unique(FD$REFID) -> refid
for (i in refid)
{
Orange2 <- FD[i == FD$REFID, ]
Orange2$ARM<- factor(Orange2$ARM)
unique(Orange2$BSCHSTAT) -> x
y <- paste("REFID=", i,"; ",...