Fehler in Yuen Testcode

Question

Ich versuche, eine Yuen robusten Test auf R auszuführen, aber ich habe ein Problem mit dem folgenden Fehlercode:

Error in formula.default(object, env = baseenv()) : invalid formula 

ich die folgenden Pakete und Code verwendet habe:

library(WRS2) 
library(car) 
library(akima) 
library(MASS) 
library(robustbase) 
library(rrcov) 
library(scatterplot3d) 
library(trimcluster) 
library(parallel) 
PremS <- c(0.06, 0.02, 0.04, 0.03, 0.03, 0.01, 0.04, 0.02, 0.07, 0.05, 0, 0.11, 0.04, 0.02, 0.03, 0.03, 0.04, 0.01, 0.06, 0.03, 0.02, 0.03, 0.03, 0.02, 0.02, 0.03, 0.02, 0.02, 0.04, 0.03, 0.03, 0.03, 0.02, 0.04, 0.06, 0.03) 
PremR <- c(0.04, 0.02, 0.05, 0.02, 0.04, 0.02, 0.01, 0.01, 0.02, 0.04, 0, 0.02, 0.01, 0.01, 0.01, 0.03, 0.02, 0.03, 0.02, 0.02, 0.02, 0.01, 0.01, 0.04, 0.01, 0.03, 0.03, 0.03, 0.02) 
yuen(PremR,PremS,tr=0.2) 

Wenn jemand helfen kann, wäre ich sehr dankbar!

Answer 1

Um zuerst die Funktion yuen aufzurufen, müssen Sie nur das Paket WRS2 laden. Die anderen sind ein bisschen zu viel.

Jetzt für die Frage. Sie müssen die Funktion mit einem Objekt der Klasse formula aufrufen. Gefällt mir:

yuen(PremR ~ PremS,tr=0.2) 
Error in model.frame.default(formula) : 
    variable lengths differ (found for 'PremS') 

Jetzt ist der Fehler geworfen anders. Also habe ich die Längen der beiden Variablen überprüft.

length(PremS) 
[1] 36 
length(PremR) 
[1] 29 

Sie müssen jetzt Ihre Daten korrigieren.