|
Autor |
R: do.call, persp |
|
nicemath
Junior  Dabei seit: 12.12.2016 Mitteilungen: 12
 | Themenstart: 2017-04-21
|
Ich soll eine Funktion mypersp schreiben, die Funktion persp verändert:
- Sollten keine Werte für $xlab, ylab, zlab$ angegeben sein, sollen diese auf $'x','y','z'$ gesetzt werden.
- Startwerte für theta und phi ist 0 bzw. 15. Wenn andere Werte eingeben werden, merkt sich die Funktion diese und benutzt sie so lange, bis neue Werte eingegeben wurden.
Mein Versuch sieht so aus:
mypersp <- function(x,...){
arg<-list(...)
if (hasArg(theta)){
arg$theta<-theta
do.call(persp,arg)
else
arg$theta<-0
do.call(persp,arg)}
if (hasArg(phi)){
arg$phi<-phi
do.call(persp,arg)
else
arg$phi<-15
do.call(persp,arg)
}
if(!hasArg(xlab)){
arg$xlab<-"x"
}
if(!hasArg(ylab)){
arg$ylab<-"y"
}
if(!hasArg(zlab)){
arg$zlab<-"z"
}
do.call(persp,arg)}
Ich soll dann die Funktion mit folgenden Werten testen:
x <- seq(0, 10, 0.1)
y <- seq(0, 5, 0.1)
z <- outer(cos(x) / (1 + x^2 / 10), cos(y) / (1 + y^2/10), "*")
mypersp(x, y, z) ## Winkel theta=0, phi=15
mypersp(x, y, z, theta=30, phi=30) ## ab jetzt theta=30, phi=30
mypersp(x, y, z, col="red") ## immer noch theta=30, phi=30
mypersp(x, y, z, theta=60, phi=20) ## ab jetzt theta=60, phi=20
Jedoch kommt immer folgende Fehlermeldung:
Error in persp.default(c(0, 0.1, 0.2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8, 0.9, :
increasing 'x' and 'y' values expected
x und y sind doch so gewählt, dass sie steigend sind? Wenn ich persp(x,y,z) aufrufe, erhalte ich keine Fehlermeldung. Es muss an dem do.call liegen.
Was soll die Fehlermeldung? Wie schaffe ich es, dass sich die Funktion theta und phi merkt? In der Aufgabenstellung steht noch, dass man zwei for-Schleifen und mind. drei if-Anweisungen braucht. Wozu benötige ich die for-Schleifen?
Es wäre echt nett, wenn mir jemand helfen könnte. ich bin echt am Verzweifeln. :-(
|
Profil
|
nicemath wird per Mail über neue Antworten informiert. |
|
All logos and trademarks in this site are property of their respective owner. The comments are property of their posters, all the rest © 2001-2023 by Matroids Matheplanet
This web site was originally made with PHP-Nuke, a former web portal system written in PHP that seems no longer to be maintained nor supported. PHP-Nuke is Free Software released under the GNU/GPL license.
Ich distanziere mich von rechtswidrigen oder anstößigen Inhalten, die sich trotz aufmerksamer Prüfung hinter hier verwendeten Links verbergen mögen. Lesen Sie die
Nutzungsbedingungen,
die Distanzierung,
die Datenschutzerklärung und das Impressum.
[Seitenanfang]
|