search for: devarayalu

...GA, data=Orange1, geom= c("point", "line"), colour= ACTTRT) unique(Orange1$REFID) -> refid for (i in refid) { Orange2 <- Orange1[i == Orange1$REFID, ] pdf('PGA.pdf') qplot(TIME1, BASCHGA, data=Orange2, geom= c("line"), colour= ACTTRT) dev.off() } Regards, Devarayalu [[alternative HTML version deleted]]

...data is stored in a csv file. And the error is coming as NULL with the following code. Can you please help? Thank you in advance. SUBJCET 9999 9999 9999 9999 9999 1Ito 1Ito 1Ito 1Ito 1Ito 1Ito 9999 9999 9999 9999 read.csv("Noname3.csv") -> FD FD$SUBJECT NULL Regards Devarayalu [[alternative HTML version deleted]]

In this following example Id 4 is duplicated with Id 1. Like this I want both Ids (Duplicated and Duplicated with). Can anyone help? df <- data.frame( "Publication" = c(1, 2, 3, 1, 4, 5, 2, 3), "Reference" = c("a", "b", "c", "a", "d", "e", "b", "c"), "Id"= c(1, 2, 3, 4,

df <- data.frame ( "RowId" = 4:7, "x"=c("1_1", "2_2", "3_3", "3_3"), "y"=c("1_1", "3_3", "2_2", "3_3") ) How can we compare corresponding values of x and y (first value of x exacly matches with the first value of y)? If they were not matced

Suppose I want the output as "Trial and a sheet" without quotes x=c("a", "b", "c") print("Trial and x[1] sheet") Getting "Trial and x[1] sheet" Can anyone help? Notice: The information contained in this electronic mail message is intended only for the use of the designated recipient. This message is privileged and confidential. and the

a=c(1,2,3) b=c(23, 24, 25) x=c("a", "b") #if (length(x[1]) == 0) {cat("x[1] is having 3 elements")} Suppose I want to send the vector a into the Object A, um getting only "a" as the ouput for Object A but not getting required output as the vector with the elements 1, 2, 3 with the following code A<- x[1] How to code it? Can anyone help? Notice: The

Hi everyone Can anyone help? x = c("Treatment", "Planned", "Actual", "Demographics", "Outcomes") for (i in x) { df <- paste(i)[, c("Reference_ID", "Arm_ID")] unique(df) -> uniq as.data.frame(table(uniq$Reference_ID)) -> y i.Arms<- paste(y$Var1, y$Freq, sep="_") Print_Message("Check for the Total No of

x=c(5, 8, 28, 29, 30) y=c(5, 8, 28, 29, 31) How can we compare these two vectors, whether each element is exactly matched with the elements in the other vector ? How can we get the non matched elements from both the vectors? Can anyone help? ________________________________ Notice: The information contained in this electronic mail message is intended only for the use of the designated recipient.

Hi Everyone, Can anyone help why the errors are coming and rectify it? invalid.ids <- c(1,3,5) if (length(invalid.ids)==0) { cat("No Errors found") } else {

Hi all, Error is coming as "error in data.frame(...., check.names = FALSE): arguments has differents counts of rows: 0, 18" for the following code. Can you please help? Thank you Devarayalu library(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)){ ((Or...

Hello, Say all the below five vectors should have same elements in any situation. How to find the non matching vectors among these five, if so how we can find the non matching elements of those vectors? Can anyone help? a=c(1,2,3) b=c(1,2,3,4) c=c(1,2,3) d=c(1,2,3) e=c(1,4,5) identical(a,b,c,d,e) Visit us at Booth No. 5 at 2012 ChemOutsourcing Conference, 10-13 Sept 2012, Ocean Place Resort -

Hi All, I want small modification in apperance of legend. I want seperate legend for each graph representing the lines present in that graph only (not all the lines in all graphs) . Can you please help? Thank you Regards Devarayalu Orange1 <- structure(list(REFID = c(7, 7, 7, 7, 7, 7, 7, 7, 8, 8, 8, 8, 8, 8, 8, 8, 9, 9, 9, 9), ARM = c(1, 1, 1, 1, 2, 2, 2, 2, 1, 1, 1, 1, 2, 2, 2, 2, 1, 1, 2, 2), SUBARM = c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), ACTTRT = structure(c(3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 1L,...

Why the result is coming as NULL. Can anyone help. I want to find the outliers for a reference setwd("D:/AZ") library("RODBC") cdb_cnct <- odbcConnectExcel("Book1.xls") cdb_frame <- sqlFetch(cdb_cnct, "Sheet1") odbcClose(cdb_cnct) rm(cdb_cnct) x<- cdb_frame$Publication >=1990 & cdb_frame$Publication <=2012 invalid <- cdb_frame[!x,

Hi all, Small problem in generating the line charts. Question: Legend for the first graph is coming wrong., for second graph correctly. Please fix the legend postion at the down of graph. Plesae give me the solution. Thank you Devarayalu Orange1 <- structure(list(REFID = c(7, 7, 7, 7, 7, 7, 7, 7, 8, 8, 8, 8, 8, 8, 8, 8, 9, 9, 9, 9), ARM = c(1, 1, 1, 1, 2, 2, 2, 2, 1, 1, 1, 1, 2, 2, 2, 2, 1, 1, 2, 2), SUBARM = c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), ACTTRT = structure(c(3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 1L...

Why the error is coming? even though the length of outcome.new$compkey and outcome.new$armkey were exactly same. Can anyone help? setwd("D:/AZ") library("RODBC") cdb_cnct <- odbcConnectExcel("AZIF_DC_GVK_NSCLC_MSALL_287papers_02072012_141450_v1_4.xls") outcomes <- sqlFetch(cdb_cnct, "Outcomes_info") odbcClose(cdb_cnct) rm(cdb_cnct)

Hi all, Can anybody debug the following programme, as I am getting some Junk graphs in the pdf. Please find the attached raw data file. Thank you Regards Rayalu library(ggplot2) setwd("D:\\General Check list") library(RODBC) conn <- odbcConnectExcel ("Book1.xls") Orange1 <- sqlFetch (conn, "Sheet3") odbcClose(conn) rm(conn) #CDAI Change

Even though the sheet name Publication exists. The error is coming. Can anyone help? library("RODBC") cdb_cnct <- odbcConnectExcel("Copy of AZIF_DC_GVK_NSCLC_MSALL_287papers_02072012_141450_v1_4.xls") cdb_frame <- sqlFetch(cdb_cnct, "Publication") odbcClose(cdb_cnct) Error in odbcTableExists(channel, sqtable) : 'Publication': table not found on

key1.=c(1, 2, 3) key2.=c(2) if (identical(key1.,key2.) == "TRUE") { cat("No Errors found") } if (length(setdiff(key1., key2.)) !=0) {

Suppose I have "Orange1" data like this. TIME1 RESPONSE RESPSTAT RESPUT REFID ARM SUBARM 0 299.5 Mean 8-item scale 68 0 0 0 287 Median 8-item scale 68 0 0 0 303.9 Mean 8-item scale 68 1 0 0 286 Median 8-item scale 68 1 0 0 295 Mean 8-item scale 85 0 0 12 254 Mean 8-item scale 85 0 0 0 287 Mean 8-item scale 85 1 0 12 216 Mean

After importing data from Excel through ODBC. In the inclusion dataset, class(inclusion$Value) is coming as factor. After filtering the data, length(inclusion$Value == 0),the answer is coming as 4879, but actually Value contains only 225 rows. So how can I get the length as 225. Can anyone help? setwd("D:/AZ") library("RODBC") cdb_cnct <-