You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
28 lines
400 B
28 lines
400 B
fatigueFunction <- function(workLoad, index)
|
|
{
|
|
if(index == 1)
|
|
{
|
|
return(workLoad[1])
|
|
}
|
|
else
|
|
{
|
|
return(workLoad[index] + 0.7*fatigueFunction(workLoad, index -1))
|
|
}
|
|
}
|
|
|
|
|
|
smoothVector <- function(dataV)
|
|
{
|
|
dataNew <- c()
|
|
|
|
for(i in 1:length(dataV))
|
|
{
|
|
dataNew <- c(dataNew, fatigueFunction(dataV, i))
|
|
}
|
|
dataNew
|
|
}
|
|
|
|
|
|
smoothVector(c(1,2,3,4))
|
|
|
|
plot(1:100, smoothVector(1:100))
|