The R Project SVN R

Rev

Rev 73730 | Rev 82569 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 73730 Rev 74304
Line 1... Line 1...
1 
/*
 1 
/*
2 
 *  R : A Computer Language for Statistical Data Analysis
 2 
 *  R : A Computer Language for Statistical Data Analysis
3 
 *  Copyright (C) 1997--2017  The R Core Team
 3 
 *  Copyright (C) 1997--2018  The R Core Team
4 
 *  Copyright (C) 1995, 1996  Robert Gentleman and Ross Ihaka
 4 
 *  Copyright (C) 1995, 1996  Robert Gentleman and Ross Ihaka
5 
 *
 5 
 *
6 
 *  This program is free software; you can redistribute it and/or modify
 6 
 *  This program is free software; you can redistribute it and/or modify
7 
 *  it under the terms of the GNU General Public License as published by
 7 
 *  it under the terms of the GNU General Public License as published by
8 
 *  the Free Software Foundation; either version 2 of the License, or
 8 
 *  the Free Software Foundation; either version 2 of the License, or
Line 196... Line 196...
196 
    }
 196 
    }
197 
 
 197 
 
198 
    SEXP klass = NULL, tsp = NULL; // -Wall
 198 
    SEXP klass = NULL, tsp = NULL; // -Wall
199 
    if (xts || yts) {
 199 
    if (xts || yts) {
200 
	if (xts && yts) {
 200 
	if (xts && yts) {
201 
	    if (!tsConform(x, y))
 - 
 
202 
		errorcall(call, _("non-conformable time series"));
 201 
	    /* could check ts conformance here */
203 
	    PROTECT(tsp = getAttrib(x, R_TspSymbol));
 202 
	    PROTECT(tsp = getAttrib(x, R_TspSymbol));
204 
	    PROTECT(klass = getAttrib(x, R_ClassSymbol));
 203 
	    PROTECT(klass = getAttrib(x, R_ClassSymbol));
205 
	}
 204 
	}
206 
	else if (xts) {
 205 
	else if (xts) {
207 
	    if (xlength(x) < xlength(y))
 206 
	    if (xlength(x) < xlength(y))