[R] Error while submission

2015-08-16 Thread Nikita Dinger 
I have completed part 2 of the assignment and am getting the desired output.
But on submitting the code, it shows as the answer is incorrect along with
this message:

function (..., list = character(), package = NULL, lib.loc = NULL, verbose
= getOption(verbose),
envir = .GlobalEnv)
Result:  Sorry, your answer was incorrect.

The following is my code for part 2:

complete - function(directory, idvec = 1:332) {
df - data.frame(id = integer(), nobs = integer())
for (id in idvec) {
filename - paste(directory, /,
  sprintf(%03d, as.integer(id)),
  5.csv, sep = )
filename - list.files()
dat - rbind(dat, read.csv(filename[id]))
}
str(data)
for (id in idvec)
{nd - data.frame(id = id,
 nobs = nrow(na.omit(dat)))
df - rbind(df, nd)
}
return(df)

}

I am using R 3.2.1 on a Windows 8 laptop.

How shall I solve this?

Thanks and regards
Nikita

[[alternative HTML version deleted]]

__
R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.

Re: [R] Error while submission

2015-08-16 Thread Sarah Goslee 
On Sun, Aug 16, 2015 at 12:39 PM, Nikita Dinger dingernik...@gmail.com wrote:
 I have completed part 2 of the assignment and am getting the desired output.
 But on submitting the code, it shows as the answer is incorrect along with
 this message:

This list is not an appropriate place for you to ask for help with
your homework. Your course should have a way for you to get assistance
from instructor/TA/other students; this is not that way.

We on R-help can't do much for you, since none of us have any idea
what part 2 might be, and the list has a no-homework policy anyway.

 function (..., list = character(), package = NULL, lib.loc = NULL, verbose
 = getOption(verbose),
 envir = .GlobalEnv)
 Result:  Sorry, your answer was incorrect.

 The following is my code for part 2:

 complete - function(directory, idvec = 1:332) {
 df - data.frame(id = integer(), nobs = integer())
 for (id in idvec) {
 filename - paste(directory, /,
   sprintf(%03d, as.integer(id)),
   5.csv, sep = )
 filename - list.files()
 dat - rbind(dat, read.csv(filename[id]))
 }
 str(data)
 for (id in idvec)
 {nd - data.frame(id = id,
  nobs = nrow(na.omit(dat)))
 df - rbind(df, nd)
 }
 return(df)

 }

 I am using R 3.2.1 on a Windows 8 laptop.

 How shall I solve this?

 Thanks and regards
 Nikita

-- 
Sarah Goslee
http://www.functionaldiversity.org

__
R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.

Re: [R] Error while submission

2015-08-16 Thread Jeff Newmiller 
Go to where you were given this assignment and ask them for help.
---
Jeff NewmillerThe .   .  Go Live...
DCN:jdnew...@dcn.davis.ca.usBasics: ##.#.   ##.#.  Live Go...
  Live:   OO#.. Dead: OO#..  Playing
Research Engineer (Solar/BatteriesO.O#.   #.O#.  with
/Software/Embedded Controllers)   .OO#.   .OO#.  rocks...1k
--- 
Sent from my phone. Please excuse my brevity.

On August 16, 2015 9:39:28 AM PDT, Nikita Dinger dingernik...@gmail.com wrote:
I have completed part 2 of the assignment and am getting the desired
output.
But on submitting the code, it shows as the answer is incorrect along
with
this message:

function (..., list = character(), package = NULL, lib.loc = NULL,
verbose
= getOption(verbose),
envir = .GlobalEnv)
Result:  Sorry, your answer was incorrect.

The following is my code for part 2:

complete - function(directory, idvec = 1:332) {
df - data.frame(id = integer(), nobs = integer())
for (id in idvec) {
filename - paste(directory, /,
  sprintf(%03d, as.integer(id)),
  5.csv, sep = )
filename - list.files()
dat - rbind(dat, read.csv(filename[id]))
}
str(data)
for (id in idvec)
{nd - data.frame(id = id,
 nobs = nrow(na.omit(dat)))
df - rbind(df, nd)
}
return(df)

}

I am using R 3.2.1 on a Windows 8 laptop.

How shall I solve this?

Thanks and regards
Nikita

   [[alternative HTML version deleted]]

__
R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide
http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.

__
R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.

[R] error in submission

2015-01-31 Thread Wael Hammam Fouad 
  R x64 3.1.2 RStudio win8.1 64x error in submission
assignment 3 best function
*actually i have 2 code *
*the first have good **output but error in submission :*
*Selection: 1Error in best(BB, heart attack) : Invalid stateCalled
from: .rs.breakOnError(TRUE)*
best - function(state, outcome) {
outmeasures - read.csv(outcome-of-care-measures.csv, colClasses
= character)
caremeasures - subset(outmeasures,,select=c(Hospital.Name,
State
 ,
Hospital.30.Day.Death..Mortality..Rates.from.Heart.Attack
 ,
Hospital.30.Day.Death..Mortality..Rates.from.Heart.Failure
 ,
Hospital.30.Day.Death..Mortality..Rates.from.Pneumonia))
names(caremeasures) - c(Hospital.Name, State, Heart.Attack,
 Heart.Failure, Pneumonia)
measuresstate - subset(caremeasures[caremeasures$State == state ,
 c(Hospital.Name, State ,
   Heart.Attack,
Heart.Failure,
   Pneumonia)])
if(!state %in% measuresstate$State) {
stop(Invalid state)
}
if(outcome == heart attack) {
minHos - measuresstate[, c(Hospital.Name,
Heart.Attack)]
minHos[, Heart.Attack] -
suppressWarnings(as.numeric(minHos[, Heart.Attack]))
minHosN - na.omit(minHos)
minHospital - minHosN[with(minHosN, order(Heart.Attack,
Hospital.Name)), ]
return(minHospital[[1]][[1]])
}else if(outcome == heart failure) {
minHos - measuresstate[, c(Hospital.Name,
Heart.Failure)]
minHos[, Heart.Failure] -
suppressWarnings(as.numeric(minHos[, Heart.Failure]))
minHosN - na.omit(minHos)
minHospital - minHosN[with(minHosN, order(Heart.Failure,
Hospital.Name)), ]
return(minHospital[[1]][[1]])
}else if(outcome == pneumonia) {
minHos - measuresstate[, c(Hospital.Name, Pneumonia)]
minHos[, Pneumonia] -
suppressWarnings(as.numeric(minHos[, Pneumonia]))
minHosN - na.omit(minHos)
minHospital - minHosN[with(minHosN, order(Pneumonia,
Hospital.Name)), ]
return(minHospital[[1]][[1]])
}else{
stop(Invalid outcome)
}
}


*the second have error* (best(BB, heart attack)
Error in minHospital[[1]][[1]] : subscript out of bounds)

*and it's looks like no check on state the is as follow :*
best - function(state, outcome) {
outmeasures - read.csv(outcome-of-care-measures.csv,
stringsAsFactors=FALSE, na.strings=Not Available)
if(!state %in% outmeasures$State |
   !outcome %in%
outmeasures$Hospital.30.Day.Death..Mortality..Rates.from.Heart.Attack |
   !outcome %in%
outmeasures$Hospital.30.Day.Death..Mortality..Rates.from.Heart.Failure |
   !outcome %in%
outmeasures$Hospital.30.Day.Death..Mortality..Rates.from.Pneumonia) {
caremeasures - subset(outmeasures,,select=c(Hospital.Name,
State
,
Hospital.30.Day.Death..Mortality..Rates.from.Heart.Attack
,
Hospital.30.Day.Death..Mortality..Rates.from.Heart.Failure
,
Hospital.30.Day.Death..Mortality..Rates.from.Pneumonia))
names(caremeasures) - c(Hospital.Name, State, Heart.Attack,
 Heart.Failure, Pneumonia)
measuresstate - subset(caremeasures[caremeasures$State == state ,
c(Hospital.Name, State ,
Heart.Attack,
  Heart.Failure, Pneumonia)])
if(outcome == heart attack) {
minHos - measuresstate[, c(Hospital.Name,
Heart.Attack)]
minHos[, Heart.Attack] -
suppressWarnings(as.numeric(minHos[, Heart.Attack]))
minHosN - na.omit(minHos)
minHospital - minHosN[with(minHosN, order(Heart.Attack,
Hospital.Name)), ]
return(minHospital[[1]][[1]])
}else if(outcome == heart failure) {
minHos - measuresstate[, c(Hospital.Name,
Heart.Failure)]
minHos[, Heart.Failure] -
suppressWarnings(as.numeric(minHos[, Heart.Failure]))
minHosN - na.omit(minHos)
minHospital - minHosN[with(minHosN, order(Heart.Failure,
Hospital.Name)), ]
return(minHospital[[1]][[1]])
}else if(outcome == pneumonia) {
minHos - measuresstate[, c(Hospital.Name, Pneumonia)]
minHos[, Pneumonia] -
suppressWarnings(as.numeric(minHos[, Pneumonia]))
minHosN - na.omit(minHos)
minHospital - minHosN[with(minHosN, order(Pneumonia,
Hospital.Name)), ]
return(minHospital[[1]][[1]])
}else{

Re: [R] error in submission

2015-01-31 Thread David Winsemius 
This is clearly a homework problem and probably one for an online Coursera 
course. If that guess is correct, then you should be using the facilities for 
help through the course website.

On Jan 31, 2015, at 2:11 AM, Wael Hammam Fouad wrote:

  R x64 3.1.2 RStudio win8.1 64x error in submission
 assignment 3 best function
 *actually i have 2 code *
 *the first have good **output but error in submission :*
 *Selection: 1Error in best(BB, heart attack) : Invalid stateCalled
 from: .rs.breakOnError(TRUE)*
 best - function(state, outcome) {
outmeasures - read.csv(outcome-of-care-measures.csv, colClasses
 = character)
caremeasures - subset(outmeasures,,select=c(Hospital.Name,
 State
 ,
 Hospital.30.Day.Death..Mortality..Rates.from.Heart.Attack
 ,
 Hospital.30.Day.Death..Mortality..Rates.from.Heart.Failure
 ,
 Hospital.30.Day.Death..Mortality..Rates.from.Pneumonia))
names(caremeasures) - c(Hospital.Name, State, Heart.Attack,
 Heart.Failure, Pneumonia)
measuresstate - subset(caremeasures[caremeasures$State == state ,
 c(Hospital.Name, State ,
   Heart.Attack, Heart.Failure,
   Pneumonia)])

if(!state %in% measuresstate$State) {
stop(Invalid state)
}
if(outcome == heart attack) {
minHos - measuresstate[, c(Hospital.Name,
 Heart.Attack)]
minHos[, Heart.Attack] -
 suppressWarnings(as.numeric(minHos[, Heart.Attack]))
minHosN - na.omit(minHos)
minHospital - minHosN[with(minHosN, order(Heart.Attack,
 Hospital.Name)), ]
return(minHospital[[1]][[1]])
}else if(outcome == heart failure) {
minHos - measuresstate[, c(Hospital.Name,
 Heart.Failure)]
minHos[, Heart.Failure] -
 suppressWarnings(as.numeric(minHos[, Heart.Failure]))
minHosN - na.omit(minHos)
minHospital - minHosN[with(minHosN, order(Heart.Failure,
 Hospital.Name)), ]
return(minHospital[[1]][[1]])
}else if(outcome == pneumonia) {
minHos - measuresstate[, c(Hospital.Name, Pneumonia)]
minHos[, Pneumonia] -
 suppressWarnings(as.numeric(minHos[, Pneumonia]))
minHosN - na.omit(minHos)
minHospital - minHosN[with(minHosN, order(Pneumonia,
 Hospital.Name)), ]
return(minHospital[[1]][[1]])
}else{
stop(Invalid outcome)
}
 }
 
 
 *the second have error* (best(BB, heart attack)
 Error in minHospital[[1]][[1]] : subscript out of bounds)
 
 *and it's looks like no check on state the is as follow :*

That phrase cannot be parsed by this native-speaker.

 best - function(state, outcome) {
outmeasures - read.csv(outcome-of-care-measures.csv,
 stringsAsFactors=FALSE, na.strings=Not Available)
if(!state %in% outmeasures$State |
   !outcome %in%
 outmeasures$Hospital.30.Day.Death..Mortality..Rates.from.Heart.Attack |
   !outcome %in%
 outmeasures$Hospital.30.Day.Death..Mortality..Rates.from.Heart.Failure |
   !outcome %in%
 outmeasures$Hospital.30.Day.Death..Mortality..Rates.from.Pneumonia) {
caremeasures - subset(outmeasures,,select=c(Hospital.Name,
 State
,
 Hospital.30.Day.Death..Mortality..Rates.from.Heart.Attack
,
 Hospital.30.Day.Death..Mortality..Rates.from.Heart.Failure
,
 Hospital.30.Day.Death..Mortality..Rates.from.Pneumonia))
names(caremeasures) - c(Hospital.Name, State, Heart.Attack,
 Heart.Failure, Pneumonia)
measuresstate - subset(caremeasures[caremeasures$State == state ,
c(Hospital.Name, State ,
 Heart.Attack,
  Heart.Failure, Pneumonia)])
if(outcome == heart attack) {
minHos - measuresstate[, c(Hospital.Name,
 Heart.Attack)]
minHos[, Heart.Attack] -
 suppressWarnings(as.numeric(minHos[, Heart.Attack]))
minHosN - na.omit(minHos)
minHospital - minHosN[with(minHosN, order(Heart.Attack,
 Hospital.Name)), ]
return(minHospital[[1]][[1]])
}else if(outcome == heart failure) {
minHos - measuresstate[, c(Hospital.Name,
 Heart.Failure)]
minHos[, Heart.Failure] -
 suppressWarnings(as.numeric(minHos[, Heart.Failure]))
minHosN - na.omit(minHos)
minHospital - minHosN[with(minHosN, order(Heart.Failure,
 Hospital.Name)), ]
return(minHospital[[1]][[1]])
}else if(outcome == pneumonia) {
minHos